* beeptest.asm beeper demonstration programPORTA   equ     $1000           ; Port A registerPIEZO   equ     8               ; position of beeper line        org     $8000start        lds     #$ff            ; initialize stack        ldx     #$1000          ; ptr to register baseloop    bset    PORTA,x PIEZO   ; set the beeper pin high        bsr     delay           ; half-wave delay        bclr    PORTA,x PIEZO   ; set the beeper pin low        bsr     delay        bra     loopdelay   clradelaylp deca        bne     delaylp        rts        org     $bffe           ; reset vector        fdb     start